home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / sync / Send.dpr < prev    next >
Encoding:
Text File  |  2001-02-28  |  537 b   |  28 lines
  1. //TGpFileMessage demo - sending part
  2.  
  3. program Send;
  4. {$APPTYPE CONSOLE}
  5. uses
  6.   SysUtils,
  7.   GpFileSync;
  8.  
  9. var
  10.   msg    : TGpFileMessage;
  11.   msgText: string;
  12.  
  13. begin
  14.   Write('Enter message> ');
  15.   Readln(msgText);
  16.   if msgText = '' then
  17.     Writeln('Nothing to send')
  18.   else begin
  19.     msg := TGpFileMessage.Create('demo.msg');
  20.     try
  21.       if msg.Send(5000,@msgText[1],Length(msgText)) then
  22.         Writeln('Message sent')
  23.       else
  24.         Writeln('Message not sent');
  25.     finally FreeAndNil(msg) end;
  26.   end;
  27. end.
  28.